Celestin Apprentice 7/Apprentice-Release7.iso/Source Code/C/Applications/Moscow ML 1.42/src/test/maxconst.sml

Text File | 1997-08-18 | 1.1 KB | 39 lines | [TEXT/R*ch]

(* 32-bit architecture: *)

val _ = (load "Word"; load "Word8");

val minInt1 = ~1073741824;
val maxInt1 =  1073741823;

val minInt2  = ~0x40000000;
val maxInt21 =  0x3fffffff;
val maxInt22 =  0x3FFFFFFF;

val test1 = minInt1 = minInt2;
val test2 = maxInt1 = maxInt21 andalso maxInt21 = maxInt22;

val maxWord1 = 0w2147483647;
val maxWord2 = 0wx7fffffff;

val test3 = maxWord1 = maxWord2 andalso maxWord1 = Word.fromInt ~1;

val maxWord8_1 = 0w255;
val maxWord8_2 = 0wxFF;

val test4 = maxWord8_1 = maxWord8_2 andalso maxWord8_1 = Word.fromInt 255;

val fail1 = ~1073741825;
val fail2 =  1073741824;
val fail3 = ~0x40000001;
val fail4 =  0x40000000;
val fail5 = 0w2147483648;
val fail6 = 0wx80000000;
val fail7 = 0w256  : Word8.word;
val fail8 = 0wx100 : Word8.word;
val fail9  =  9999999999999999999999999999999999999999;
val fail10 = ~9999999999999999999999999999999999999999;
val fail11 =  0xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF;
val fail12 = ~0xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF;
val fail13 = 0wxFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF;
val fail14 = 0wxFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF : Word8.word;